function [Q]=GetQMax(p)
    Q=0;
    for k=1:size(p)
        
        a=abs(0.5*abs(p(k)/real(p(k))));
        if a>Q
            Q=a;
        end
        
    end
end